home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2000 May / PCW_MAY2000.iso / pc world.dir / 00006_Script_6 < prev    next >
Text File  |  2000-04-04  |  602b  |  30 lines
  1. on exitFrame
  2.   global timex, ie, net, startup
  3.   timex= the timer
  4.   
  5.   
  6.   set ex = new(xtra "fileio")    -- Create an instance of FileIO
  7.   
  8.   openFile(ex, "pc.txt", 1) -- open file that user selected 
  9.   
  10.   set data = readFile(ex) -- Read the file into a Lingo variable  
  11.   
  12.   
  13.   closeFile(ex)                    -- Close the file
  14.   set ex = 0                       -- Dispose of the instance
  15.   
  16.   set issue = word 1 of data
  17.   
  18.   put "No."&issue into field "issue no"
  19.   
  20.   set ie= word 2 of data
  21.   
  22.   set net= word 3 of data
  23.   
  24.   set startup = word 4 of data
  25.   
  26.  
  27.   
  28. end
  29.  
  30. end